#!/usr/local/bin/perl
use warnings;
sub main()
{
$a = 0;

$b = 0;
$a = 5;

$b = 6;

while ($a<$b) {
$a = $a+1;
print "here";
}


return 0;
}

main();
